/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Fred (editor) utilities.sea / Fred (editor) utilities / Zmacs Cmds for MCL 1.3.2

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 18 5a 6d 61 63 73 20 | 43 6d 64 73 20 66 6f 72 |..Zmacs |Cmds for|
|00000010| 20 4d 43 4c 20 31 2e 33 | 2e 32 00 00 00 00 00 00 | MCL 1.3|.2......|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 0e cc 00 | 00 01 b9 a6 1d 14 a7 a6 |........|........|
|00000060| 1d 14 a7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 53 5e 00 00 |........|....S^..|
|00000080| 3b 3b 20 54 68 69 73 20 | 66 69 6c 65 20 61 64 64 |;; This |file add|
|00000090| 73 20 61 20 76 61 72 69 | 65 74 79 20 6f 66 20 5a |s a vari|ety of Z|
|000000a0| 4d 41 43 53 20 63 6f 6d | 6d 61 6e 64 73 20 74 6f |MACS com|mands to|
|000000b0| 20 74 68 65 20 46 52 45 | 44 20 65 64 69 74 6f 72 | the FRE|D editor|
|000000c0| 20 69 6e 20 43 6f 6d 6d | 6f 6e 20 4c 69 73 70 2e | in Comm|on Lisp.|
|000000d0| 0d 3b 3b 20 43 6f 6e 73 | 75 6c 74 20 74 68 65 20 |.;; Cons|ult the |
|000000e0| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 6c 69 |document|ation li|
|000000f0| 6e 65 20 6f 66 20 65 61 | 63 68 20 64 65 66 75 6e |ne of ea|ch defun|
|00000100| 20 74 6f 20 67 65 74 20 | 0d 3b 3b 20 61 6e 20 69 | to get |.;; an i|
|00000110| 64 65 61 20 6f 66 20 77 | 68 61 74 20 74 68 65 20 |dea of w|hat the |
|00000120| 76 61 72 69 6f 75 73 20 | 66 75 6e 63 74 69 6f 6e |various |function|
|00000130| 73 20 64 6f 2e 20 20 0d | 3b 3b 20 20 54 68 65 20 |s do.  .|;;  The |
|00000140| 6b 65 79 20 61 73 73 69 | 67 6e 6d 65 6e 74 73 20 |key assi|gnments |
|00000150| 74 68 61 74 20 49 20 68 | 61 76 65 20 63 68 6f 73 |that I h|ave chos|
|00000160| 65 6e 20 61 72 65 20 69 | 6e 63 6c 75 64 65 64 0d |en are i|ncluded.|
|00000170| 3b 3b 20 61 66 74 65 72 | 20 65 61 63 68 20 64 65 |;; after| each de|
|00000180| 66 75 6e 2e 20 20 59 6f | 75 20 63 61 6e 20 63 68 |fun.  Yo|u can ch|
|00000190| 61 6e 67 65 20 74 68 65 | 6d 20 61 73 20 79 6f 75 |ange the|m as you|
|000001a0| 20 77 69 73 68 2e 0d 28 | 69 6e 2d 70 61 63 6b 61 | wish..(|in-packa|
|000001b0| 67 65 20 3a 63 6c 2d 75 | 73 65 72 29 0d 0d 28 64 |ge :cl-u|ser)..(d|
|000001c0| 65 66 76 61 72 20 2a 74 | 61 62 2e 73 70 61 63 65 |efvar *t|ab.space|
|000001d0| 2a 20 22 20 20 22 29 0d | 28 64 65 66 76 61 72 20 |* "  ").|(defvar |
|000001e0| 2a 7a 6d 61 63 73 2e 6d | 61 72 6b 2e 73 74 61 63 |*zmacs.m|ark.stac|
|000001f0| 6b 2a 20 6e 69 6c 29 20 | 20 20 20 20 3b 3b 20 61 |k* nil) |    ;; a|
|00000200| 20 73 74 61 63 6b 20 6f | 66 20 63 75 72 73 6f 72 | stack o|f cursor|
|00000210| 20 6c 6f 63 61 74 69 6f | 6e 73 20 73 65 74 20 62 | locatio|ns set b|
|00000220| 79 20 53 65 74 2d 5a 6d | 61 63 73 2d 4d 61 72 6b |y Set-Zm|acs-Mark|
|00000230| 0d 28 73 65 74 66 20 28 | 73 75 62 73 65 71 20 2a |.(setf (|subseq *|
|00000240| 74 61 62 2e 73 70 61 63 | 65 2a 20 31 20 32 29 20 |tab.spac|e* 1 2) |
|00000250| 28 73 74 72 69 6e 67 20 | 23 5c 54 61 62 29 29 0d |(string |#\Tab)).|
|00000260| 0d 0d 28 64 65 66 75 6e | 20 52 45 50 4f 53 49 54 |..(defun| REPOSIT|
|00000270| 49 4f 4e 2d 44 45 46 55 | 4e 20 28 29 0d 20 20 22 |ION-DEFU|N ().  "|
|00000280| 6d 65 74 61 2d 63 6f 6e | 74 72 6f 6c 2d 52 2e 20 |meta-con|trol-R. |
|00000290| 44 69 73 70 6c 61 79 20 | 74 68 69 73 20 64 65 66 |Display |this def|
|000002a0| 75 6e 20 61 74 20 74 68 | 65 20 74 6f 70 20 6f 66 |un at th|e top of|
|000002b0| 20 74 68 65 20 73 63 72 | 65 65 6e 22 0d 20 20 28 | the scr|een".  (|
|000002c0| 6c 65 74 2a 20 28 28 77 | 69 6e 64 6f 77 20 28 66 |let* ((w|indow (f|
|000002d0| 69 72 73 74 20 28 77 69 | 6e 64 6f 77 73 20 2a 66 |irst (wi|ndows *f|
|000002e0| 72 65 64 2d 77 69 6e 64 | 6f 77 2a 29 29 29 0d 20 |red-wind|ow*))). |
|000002f0| 20 20 20 20 20 20 20 20 | 28 6d 61 72 6b 20 28 61 |        |(mark (a|
|00000300| 73 6b 20 77 69 6e 64 6f | 77 20 28 77 69 6e 64 6f |sk windo|w (windo|
|00000310| 77 2d 63 75 72 73 6f 72 | 2d 6d 61 72 6b 29 29 29 |w-cursor|-mark)))|
|00000320| 0d 20 20 20 20 20 20 20 | 20 20 29 0d 20 20 20 28 |.       |  ).   (|
|00000330| 61 73 6b 20 77 69 6e 64 | 6f 77 20 28 63 63 6c 3a |ask wind|ow (ccl:|
|00000340| 3a 65 64 2d 73 74 61 72 | 74 2d 74 6f 70 2d 6c 65 |:ed-star|t-top-le|
|00000350| 76 65 6c 2d 73 65 78 70 | 29 29 0d 20 20 20 20 28 |vel-sexp|)).    (|
|00000360| 61 73 6b 20 77 69 6e 64 | 6f 77 20 28 73 65 74 2d |ask wind|ow (set-|
|00000370| 6d 61 72 6b 20 28 77 69 | 6e 64 6f 77 2d 73 74 61 |mark (wi|ndow-sta|
|00000380| 72 74 2d 6d 61 72 6b 29 | 20 6d 61 72 6b 29 0d 20 |rt-mark)| mark). |
|00000390| 20 20 20 20 20 20 20 20 | 28 77 69 6e 64 6f 77 2d |        |(window-|
|000003a0| 75 70 64 61 74 65 29 29 | 0d 20 20 20 20 29 29 0d |update))|.    )).|
|000003b0| 28 64 65 66 2d 66 72 65 | 64 2d 63 6f 6d 6d 61 6e |(def-fre|d-comman|
|000003c0| 64 20 28 3a 6d 65 74 61 | 20 3a 63 6f 6e 74 72 6f |d (:meta| :contro|
|000003d0| 6c 20 23 5c 72 29 20 72 | 65 70 6f 73 69 74 69 6f |l #\r) r|epositio|
|000003e0| 6e 2d 64 65 66 75 6e 29 | 0d 0d 0d 28 64 65 66 75 |n-defun)|...(defu|
|000003f0| 6e 20 54 48 49 53 2d 4c | 49 4e 45 2d 54 4f 2d 54 |n THIS-L|INE-TO-T|
|00000400| 4f 50 20 28 29 0d 20 20 | 22 63 6f 6e 74 72 6f 6c |OP ().  |"control|
|00000410| 2d 4c 2e 20 52 65 70 6f | 73 69 74 69 6f 6e 20 74 |-L. Repo|sition t|
|00000420| 68 69 73 20 6c 69 6e 65 | 20 61 74 20 74 68 65 20 |his line| at the |
|00000430| 74 6f 70 20 6f 66 20 74 | 68 65 20 73 63 72 65 65 |top of t|he scree|
|00000440| 6e 22 0d 20 20 28 6c 65 | 74 2a 20 28 28 77 69 6e |n".  (le|t* ((win|
|00000450| 64 6f 77 20 28 66 69 72 | 73 74 20 28 77 69 6e 64 |dow (fir|st (wind|
|00000460| 6f 77 73 20 2a 66 72 65 | 64 2d 77 69 6e 64 6f 77 |ows *fre|d-window|
|00000470| 2a 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 28 6d |*))).   |      (m|
|00000480| 61 72 6b 20 28 61 73 6b | 20 77 69 6e 64 6f 77 20 |ark (ask| window |
|00000490| 28 77 69 6e 64 6f 77 2d | 63 75 72 73 6f 72 2d 6d |(window-|cursor-m|
|000004a0| 61 72 6b 29 29 29 0d 20 | 20 20 20 20 20 20 20 20 |ark))). |        |
|000004b0| 29 0d 20 20 20 20 28 61 | 73 6b 20 77 69 6e 64 6f |).    (a|sk windo|
|000004c0| 77 20 28 73 65 74 2d 6d | 61 72 6b 20 28 77 69 6e |w (set-m|ark (win|
|000004d0| 64 6f 77 2d 73 74 61 72 | 74 2d 6d 61 72 6b 29 20 |dow-star|t-mark) |
|000004e0| 6d 61 72 6b 29 0d 20 20 | 20 20 20 20 20 20 20 28 |mark).  |       (|
|000004f0| 77 69 6e 64 6f 77 2d 75 | 70 64 61 74 65 29 29 0d |window-u|pdate)).|
|00000500| 20 20 20 20 29 29 0d 28 | 64 65 66 2d 66 72 65 64 |    )).(|def-fred|
|00000510| 2d 63 6f 6d 6d 61 6e 64 | 20 28 3a 63 6f 6e 74 72 |-command| (:contr|
|00000520| 6f 6c 20 23 5c 4c 29 20 | 74 68 69 73 2d 6c 69 6e |ol #\L) |this-lin|
|00000530| 65 2d 74 6f 2d 74 6f 70 | 29 0d 0d 0d 28 64 65 66 |e-to-top|)...(def|
|00000540| 75 6e 20 53 45 54 2d 5a | 4d 41 43 53 2d 4d 41 52 |un SET-Z|MACS-MAR|
|00000550| 4b 20 28 29 0d 20 20 22 | 6d 65 74 61 2d 53 2e 20 |K ().  "|meta-S. |
|00000560| 53 61 76 65 20 74 68 65 | 20 63 75 72 72 65 6e 74 |Save the| current|
|00000570| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 74 68 65 | locatio|n of the|
|00000580| 20 63 75 72 73 6f 72 20 | 6f 6e 20 61 20 73 74 61 | cursor |on a sta|
|00000590| 63 6b 2e 20 20 0d 20 20 | 20 4a 55 4d 50 2d 5a 4d |ck.  .  | JUMP-ZM|
|000005a0| 41 43 53 2d 4d 41 52 4b | 20 77 69 6c 6c 20 6a 75 |ACS-MARK| will ju|
|000005b0| 6d 70 20 62 61 63 6b 20 | 74 6f 20 74 68 69 73 20 |mp back |to this |
|000005c0| 6c 6f 63 61 74 69 6f 6e | 2e 22 0d 20 20 28 6c 65 |location|.".  (le|
|000005d0| 74 2a 20 28 28 77 69 6e | 64 6f 77 20 28 66 69 72 |t* ((win|dow (fir|
|000005e0| 73 74 20 28 77 69 6e 64 | 6f 77 73 20 2a 66 72 65 |st (wind|ows *fre|
|000005f0| 64 2d 77 69 6e 64 6f 77 | 2a 29 29 29 0d 20 20 20 |d-window|*))).   |
|00000600| 20 20 20 20 20 20 28 6d | 61 72 6b 20 28 61 73 6b |      (m|ark (ask|
|00000610| 20 77 69 6e 64 6f 77 20 | 28 77 69 6e 64 6f 77 2d | window |(window-|
|00000620| 63 75 72 73 6f 72 2d 6d | 61 72 6b 29 29 29 0d 20 |cursor-m|ark))). |
|00000630| 20 20 20 20 20 20 20 20 | 3b 3b 63 68 61 72 0d 20 |        |;;char. |
|00000640| 20 20 20 20 20 20 20 20 | 29 0d 20 20 20 20 28 73 |        |).    (s|
|00000650| 65 74 71 20 2a 7a 6d 61 | 63 73 2e 6d 61 72 6b 2e |etq *zma|cs.mark.|
|00000660| 73 74 61 63 6b 2a 20 28 | 63 6f 6e 73 20 28 6d 61 |stack* (|cons (ma|
|00000670| 72 6b 2d 70 6f 73 69 74 | 69 6f 6e 20 6d 61 72 6b |rk-posit|ion mark|
|00000680| 29 20 2a 7a 6d 61 63 73 | 2e 6d 61 72 6b 2e 73 74 |) *zmacs|.mark.st|
|00000690| 61 63 6b 2a 29 29 0d 20 | 20 20 20 3b 3b 28 73 65 |ack*)). |   ;;(se|
|000006a0| 74 2d 6d 69 6e 69 2d 62 | 75 66 66 65 72 20 22 53 |t-mini-b|uffer "S|
|000006b0| 65 74 20 4d 61 72 6b 20 | 7e 41 2e 22 20 28 66 69 |et Mark |~A." (fi|
|000006c0| 72 73 74 20 2a 7a 6d 61 | 63 73 2e 6d 61 72 6b 2e |rst *zma|cs.mark.|
|000006d0| 73 74 61 63 6b 2a 29 29 | 0d 20 20 20 20 3b 3b 28 |stack*))|.    ;;(|
|000006e0| 61 73 6b 20 77 69 6e 64 | 6f 77 20 28 6d 69 6e 69 |ask wind|ow (mini|
|000006f0| 2d 62 75 66 66 65 72 2d | 75 70 64 61 74 65 29 29 |-buffer-|update))|
|00000700| 0d 20 20 20 20 29 29 0d | 28 64 65 66 2d 66 72 65 |.    )).|(def-fre|
|00000710| 64 2d 63 6f 6d 6d 61 6e | 64 20 28 3a 6d 65 74 61 |d-comman|d (:meta|
|00000720| 20 23 5c 73 29 20 73 65 | 74 2d 7a 6d 61 63 73 2d | #\s) se|t-zmacs-|
|00000730| 6d 61 72 6b 29 0d 0d 0d | 28 64 65 66 75 6e 20 4a |mark)...|(defun J|
|00000740| 55 4d 50 2d 5a 4d 41 43 | 53 2d 4d 41 52 4b 20 28 |UMP-ZMAC|S-MARK (|
|00000750| 29 0d 20 20 22 6d 65 74 | 61 2d 4a 2e 20 4a 75 6d |).  "met|a-J. Jum|
|00000760| 70 20 74 6f 20 74 68 65 | 20 63 75 72 73 6f 72 20 |p to the| cursor |
|00000770| 6c 6f 63 61 74 69 6f 6e | 20 73 65 74 20 62 79 20 |location| set by |
|00000780| 53 45 54 2d 5a 4d 41 43 | 53 2d 4d 41 52 4b 2e 22 |SET-ZMAC|S-MARK."|
|00000790| 0d 20 20 28 6c 65 74 2a | 20 28 28 77 69 6e 64 6f |.  (let*| ((windo|
|000007a0| 77 20 28 66 69 72 73 74 | 20 28 77 69 6e 64 6f 77 |w (first| (window|
|000007b0| 73 20 2a 66 72 65 64 2d | 77 69 6e 64 6f 77 2a 29 |s *fred-|window*)|
|000007c0| 29 29 0d 20 20 20 20 20 | 20 20 20 20 28 6d 61 72 |)).     |    (mar|
|000007d0| 6b 2e 70 6f 73 69 74 69 | 6f 6e 20 28 66 69 72 73 |k.positi|on (firs|
|000007e0| 74 20 2a 7a 6d 61 63 73 | 2e 6d 61 72 6b 2e 73 74 |t *zmacs|.mark.st|
|000007f0| 61 63 6b 2a 29 29 0d 20 | 20 20 20 20 20 20 20 20 |ack*)). |        |
|00000800| 29 0d 20 20 20 20 3b 3b | 20 28 77 69 6e 64 6f 77 |).    ;;| (window|
|00000810| 2d 73 74 61 72 74 2d 6d | 61 72 6b 29 0d 20 20 20 |-start-m|ark).   |
|00000820| 20 28 77 68 65 6e 20 6d | 61 72 6b 2e 70 6f 73 69 | (when m|ark.posi|
|00000830| 74 69 6f 6e 0d 20 20 20 | 20 28 61 73 6b 20 77 69 |tion.   | (ask wi|
|00000840| 6e 64 6f 77 20 28 73 65 | 74 2d 6d 61 72 6b 20 28 |ndow (se|t-mark (|
|00000850| 77 69 6e 64 6f 77 2d 63 | 75 72 73 6f 72 2d 6d 61 |window-c|ursor-ma|
|00000860| 72 6b 29 20 6d 61 72 6b | 2e 70 6f 73 69 74 69 6f |rk) mark|.positio|
|00000870| 6e 29 0d 20 20 20 20 20 | 20 20 20 20 28 77 69 6e |n).     |    (win|
|00000880| 64 6f 77 2d 75 70 64 61 | 74 65 29 29 0d 20 20 20 |dow-upda|te)).   |
|00000890| 20 3b 3b 28 73 65 74 2d | 6d 69 6e 69 2d 62 75 66 | ;;(set-|mini-buf|
|000008a0| 66 65 72 20 22 4a 75 6d | 70 69 6e 67 20 74 6f 20 |fer "Jum|ping to |
|000008b0| 4d 61 72 6b 20 61 74 20 | 7e 41 2e 22 20 6d 61 72 |Mark at |~A." mar|
|000008c0| 6b 2e 70 6f 73 69 74 69 | 6f 6e 29 0d 20 20 20 20 |k.positi|on).    |
|000008d0| 3b 3b 28 61 73 6b 20 77 | 69 6e 64 6f 77 20 28 6d |;;(ask w|indow (m|
|000008e0| 69 6e 69 2d 62 75 66 66 | 65 72 2d 75 70 64 61 74 |ini-buff|er-updat|
|000008f0| 65 29 29 0d 20 20 20 20 | 29 29 29 0d 28 64 65 66 |e)).    |))).(def|
|00000900| 2d 66 72 65 64 2d 63 6f | 6d 6d 61 6e 64 20 28 3a |-fred-co|mmand (:|
|00000910| 6d 65 74 61 20 23 5c 6a | 29 20 6a 75 6d 70 2d 7a |meta #\j|) jump-z|
|00000920| 6d 61 63 73 2d 6d 61 72 | 6b 29 0d 0d 28 64 65 66 |macs-mar|k)..(def|
|00000930| 75 6e 20 50 4f 50 2d 4a | 55 4d 50 2d 5a 4d 41 43 |un POP-J|UMP-ZMAC|
|00000940| 53 2d 4d 41 52 4b 20 28 | 29 0d 20 20 22 63 6f 6e |S-MARK (|).  "con|
|00000950| 74 72 6f 6c 2d 4a 2e 20 | 20 50 6f 70 73 20 74 68 |trol-J. | Pops th|
|00000960| 65 20 73 74 61 63 6b 20 | 6f 66 20 63 75 72 73 6f |e stack |of curso|
|00000970| 72 20 6c 6f 63 61 74 69 | 6f 6e 73 20 73 65 74 20 |r locati|ons set |
|00000980| 62 79 20 53 45 54 2d 5a | 4d 41 43 53 2d 4d 41 52 |by SET-Z|MACS-MAR|
|00000990| 4b 2c 20 61 6e 64 20 74 | 68 65 6e 0d 20 20 20 6a |K, and t|hen.   j|
|000009a0| 75 6d 70 73 20 74 6f 20 | 74 68 65 20 6e 65 77 20 |umps to |the new |
|000009b0| 74 6f 70 20 6c 6f 63 61 | 74 69 6f 6e 2e 0d 20 20 |top loca|tion..  |
|000009c0| 20 4a 55 4d 50 2d 5a 4d | 41 43 53 2d 4d 41 52 4b | JUMP-ZM|ACS-MARK|
|000009d0| 20 77 69 6c 6c 20 6e 6f | 77 20 67 6f 20 74 6f 20 | will no|w go to |
|000009e0| 74 68 69 73 20 6e 65 77 | 20 74 6f 70 20 6c 6f 63 |this new| top loc|
|000009f0| 61 74 69 6f 6e 20 61 73 | 20 77 65 6c 6c 2e 22 0d |ation as| well.".|
|00000a00| 20 20 28 73 65 74 71 20 | 2a 7a 6d 61 63 73 2e 6d |  (setq |*zmacs.m|
|00000a10| 61 72 6b 2e 73 74 61 63 | 6b 2a 20 28 63 64 72 20 |ark.stac|k* (cdr |
|00000a20| 2a 7a 6d 61 63 73 2e 6d | 61 72 6b 2e 73 74 61 63 |*zmacs.m|ark.stac|
|00000a30| 6b 2a 29 29 0d 20 20 28 | 4a 55 4d 50 2d 5a 4d 41 |k*)).  (|JUMP-ZMA|
|00000a40| 43 53 2d 4d 41 52 4b 29 | 0d 20 20 29 0d 28 64 65 |CS-MARK)|.  ).(de|
|00000a50| 66 2d 66 72 65 64 2d 63 | 6f 6d 6d 61 6e 64 20 28 |f-fred-c|ommand (|
|00000a60| 3a 63 6f 6e 74 72 6f 6c | 20 23 5c 6a 29 20 50 4f |:control| #\j) PO|
|00000a70| 50 2d 4a 55 4d 50 2d 5a | 4d 41 43 53 2d 4d 41 52 |P-JUMP-Z|MACS-MAR|
|00000a80| 4b 29 0d 0d 0d 28 64 65 | 66 75 6e 20 4a 4f 49 4e |K)...(de|fun JOIN|
|00000a90| 2d 4c 49 4e 45 53 20 28 | 29 0d 20 20 22 6d 65 74 |-LINES (|).  "met|
|00000aa0| 61 2d 73 68 69 66 74 2d | 5e 2e 20 20 4a 6f 69 6e |a-shift-|^.  Join|
|00000ab0| 20 74 68 69 73 20 6c 69 | 6e 65 20 77 69 74 68 20 | this li|ne with |
|00000ac0| 74 68 65 20 6c 69 6e 65 | 20 61 62 6f 76 65 2e 0d |the line| above..|
|00000ad0| 20 20 20 43 61 6e 20 62 | 65 20 75 6e 64 6f 6e 65 |   Can b|e undone|
|00000ae0| 20 77 69 74 68 20 63 6f | 6e 74 72 6f 6c 2d 59 2e | with co|ntrol-Y.|
|00000af0| 22 0d 20 20 28 6c 65 74 | 2a 20 28 28 77 69 6e 64 |".  (let|* ((wind|
|00000b00| 6f 77 20 28 66 69 72 73 | 74 20 28 77 69 6e 64 6f |ow (firs|t (windo|
|00000b10| 77 73 20 2a 66 72 65 64 | 2d 77 69 6e 64 6f 77 2a |ws *fred|-window*|
|00000b20| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 28 62 75 |))).    |     (bu|
|00000b30| 66 66 65 72 20 28 61 73 | 6b 20 77 69 6e 64 6f 77 |ffer (as|k window|
|00000b40| 20 28 77 69 6e 64 6f 77 | 2d 62 75 66 66 65 72 29 | (window|-buffer)|
|00000b50| 29 29 0d 20 20 20 20 20 | 20 20 20 20 28 6d 61 72 |)).     |    (mar|
|00000b60| 6b 20 28 61 73 6b 20 77 | 69 6e 64 6f 77 20 28 77 |k (ask w|indow (w|
|00000b70| 69 6e 64 6f 77 2d 63 75 | 72 73 6f 72 2d 6d 61 72 |indow-cu|rsor-mar|
|00000b80| 6b 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 73 74 |k))).   |      st|
|00000b90| 61 72 74 2e 70 6f 73 20 | 65 6e 64 2e 70 6f 73 0d |art.pos |end.pos.|
|00000ba0| 20 20 20 20 20 20 20 20 | 20 29 0d 20 20 20 20 28 |        | ).    (|
|00000bb0| 61 73 6b 20 77 69 6e 64 | 6f 77 20 28 63 63 6c 3a |ask wind|ow (ccl:|
|00000bc0| 3a 65 64 2d 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |:ed-begi|nning-of|
|00000bd0| 2d 6c 69 6e 65 29 29 0d | 20 20 20 20 28 73 65 74 |-line)).|    (set|
|00000be0| 71 20 65 6e 64 2e 70 6f | 73 20 28 63 63 6c 3a 3a |q end.po|s (ccl::|
|00000bf0| 62 75 66 66 65 72 2d 6e | 6f 74 2d 63 68 61 72 2d |buffer-n|ot-char-|
|00000c00| 70 6f 73 20 62 75 66 66 | 65 72 20 2a 74 61 62 2e |pos buff|er *tab.|
|00000c10| 73 70 61 63 65 2a 0d 20 | 20 20 20 20 20 20 20 20 |space*. |        |
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c40| 20 20 20 3a 73 74 61 72 | 74 20 6d 61 72 6b 29 29 |   :star|t mark))|
|00000c50| 0d 20 20 20 20 28 61 73 | 6b 20 77 69 6e 64 6f 77 |.    (as|k window|
|00000c60| 20 28 63 63 6c 3a 3a 65 | 64 2d 70 72 65 76 69 6f | (ccl::e|d-previo|
|00000c70| 75 73 2d 6c 69 6e 65 29 | 29 0d 20 20 20 20 28 61 |us-line)|).    (a|
|00000c80| 73 6b 20 77 69 6e 64 6f | 77 20 28 63 63 6c 3a 3a |sk windo|w (ccl::|
|00000c90| 65 64 2d 65 6e 64 2d 6f | 66 2d 6c 69 6e 65 29 29 |ed-end-o|f-line))|
|00000ca0| 0d 20 20 20 20 28 73 65 | 74 71 20 73 74 61 72 74 |.    (se|tq start|
|00000cb0| 2e 70 6f 73 20 0d 20 20 | 20 20 20 20 20 20 20 20 |.pos .  |        |
|00000cc0| 28 31 2b 20 28 63 63 6c | 3a 3a 62 75 66 66 65 72 |(1+ (ccl|::buffer|
|00000cd0| 2d 6e 6f 74 2d 63 68 61 | 72 2d 70 6f 73 20 62 75 |-not-cha|r-pos bu|
|00000ce0| 66 66 65 72 20 2a 74 61 | 62 2e 73 70 61 63 65 2a |ffer *ta|b.space*|
|00000cf0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d10| 20 20 20 20 20 20 20 20 | 20 3a 73 74 61 72 74 20 |        | :start |
|00000d20| 30 20 3a 66 72 6f 6d 2d | 65 6e 64 20 74 20 3a 65 |0 :from-|end t :e|
|00000d30| 6e 64 20 6d 61 72 6b 29 | 29 29 0d 20 20 20 20 28 |nd mark)|)).    (|
|00000d40| 73 65 74 2d 6d 61 72 6b | 20 6d 61 72 6b 20 73 74 |set-mark| mark st|
|00000d50| 61 72 74 2e 70 6f 73 29 | 0d 20 20 20 20 3b 3b 28 |art.pos)|.    ;;(|
|00000d60| 61 73 6b 20 77 69 6e 64 | 6f 77 20 28 73 65 74 2d |ask wind|ow (set-|
|00000d70| 73 65 6c 65 63 74 69 6f | 6e 2d 72 61 6e 67 65 20 |selectio|n-range |
|00000d80| 65 6e 64 2e 70 6f 73 29 | 29 0d 20 20 20 20 28 61 |end.pos)|).    (a|
|00000d90| 73 6b 20 77 69 6e 64 6f | 77 20 28 63 63 6c 3a 3a |sk windo|w (ccl::|
|00000da0| 65 64 2d 64 65 6c 65 74 | 65 2d 77 69 74 68 2d 75 |ed-delet|e-with-u|
|00000db0| 6e 64 6f 20 73 74 61 72 | 74 2e 70 6f 73 20 65 6e |ndo star|t.pos en|
|00000dc0| 64 2e 70 6f 73 20 74 29 | 29 0d 20 20 20 20 28 63 |d.pos t)|).    (c|
|00000dd0| 63 6c 3a 3a 62 75 66 66 | 65 72 2d 69 6e 73 65 72 |cl::buff|er-inser|
|00000de0| 74 20 62 75 66 66 65 72 | 20 22 20 22 20 73 74 61 |t buffer| " " sta|
|00000df0| 72 74 2e 70 6f 73 29 0d | 20 20 20 20 29 29 0d 28 |rt.pos).|    )).(|
|00000e00| 64 65 66 2d 66 72 65 64 | 2d 63 6f 6d 6d 61 6e 64 |def-fred|-command|
|00000e10| 20 28 3a 6d 65 74 61 20 | 23 5c 36 29 20 6a 6f 69 | (:meta |#\6) joi|
|00000e20| 6e 2d 6c 69 6e 65 73 29 | 0d 0d 0d 28 64 65 66 75 |n-lines)|...(defu|
|00000e30| 6e 20 54 4f 47 47 4c 45 | 2d 45 44 49 54 4f 52 2d |n TOGGLE|-EDITOR-|
|00000e40| 57 49 4e 44 4f 57 53 20 | 28 29 0d 20 20 22 53 65 |WINDOWS |().  "Se|
|00000e50| 6c 65 63 74 20 74 68 65 | 20 70 72 65 76 69 6f 75 |lect the| previou|
|00000e60| 73 20 65 64 69 74 6f 72 | 20 77 69 6e 64 6f 77 22 |s editor| window"|
|00000e70| 0d 20 20 28 6c 6f 6f 70 | 20 66 6f 72 20 77 69 6e |.  (loop| for win|
|00000e80| 64 6f 77 20 69 6e 20 28 | 63 64 72 20 28 77 69 6e |dow in (|cdr (win|
|00000e90| 64 6f 77 73 20 2a 66 72 | 65 64 2d 77 69 6e 64 6f |dows *fr|ed-windo|
|00000ea0| 77 2a 29 29 0d 20 20 20 | 20 20 20 20 20 75 6e 74 |w*)).   |     unt|
|00000eb0| 69 6c 20 28 6e 6f 74 20 | 28 74 79 70 65 70 20 77 |il (not |(typep w|
|00000ec0| 69 6e 64 6f 77 20 2a 6c | 69 73 74 65 6e 65 72 2a |indow *l|istener*|
|00000ed0| 29 29 0d 20 20 20 20 20 | 20 20 20 66 69 6e 61 6c |)).     |   final|
|00000ee0| 6c 79 20 28 61 73 6b 20 | 77 69 6e 64 6f 77 20 28 |ly (ask |window (|
|00000ef0| 77 69 6e 64 6f 77 2d 73 | 65 6c 65 63 74 29 29 0d |window-s|elect)).|
|00000f00| 20 20 20 20 20 20 20 20 | 29 0d 20 20 29 0d 28 64 |        |).  ).(d|
|00000f10| 65 66 2d 66 72 65 64 2d | 63 6f 6d 6d 61 6e 64 20 |ef-fred-|command |
|00000f20| 28 3a 6d 65 74 61 20 3a | 63 6f 6e 74 72 6f 6c 20 |(:meta :|control |
|00000f30| 23 5c 6c 29 20 74 6f 67 | 67 6c 65 2d 65 64 69 74 |#\l) tog|gle-edit|
|00000f40| 6f 72 2d 77 69 6e 64 6f | 77 73 29 0d 00 00 00 00 |or-windo|ws).....|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f80| 00 00 01 00 00 00 01 67 | 00 00 00 67 00 00 00 52 |.......g|...g...R|
|00000f90| 6c 65 74 2a 20 28 28 77 | 69 6e 64 6f 77 20 28 66 |let* ((w|indow (f|
|00000fa0| 69 72 73 74 20 28 77 69 | 6e 64 6f 77 73 20 2a 66 |irst (wi|ndows *f|
|00000fb0| 18 5a 6d 61 63 73 20 43 | 6d 64 73 20 66 6f 72 20 |.Zmacs C|mds for |
|00000fc0| 4d 43 4c 20 31 2e 33 2e | 32 20 02 00 00 00 54 45 |MCL 1.3.|2 ....TE|
|00000fd0| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 8c 00 00 |..TEXTCC|L2......|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 a1 cd 09 b0 00 00 | 0e cc 00 00 01 b9 61 73 |........|......as|
|00001000| 6b 20 77 69 6e 64 6f 77 | 20 28 77 69 6e 64 6f 77 |k window| (window|
|00001010| 2d 63 75 72 73 6f 72 2d | 6d 61 72 6b 29 29 29 0d |-cursor-|mark))).|
|00001020| 20 20 20 20 20 20 20 20 | 20 29 0d 20 20 20 20 28 |        | ).    (|
|00001030| 77 69 74 68 2d 6d 61 72 | 6b 20 28 67 61 2e 6d 61 |with-mar|k (ga.ma|
|00001040| 72 6b 20 62 75 66 66 65 | 72 20 6d 61 72 6b 20 6e |rk buffe|r mark n|
|00001050| 69 6c 29 0d 20 20 20 20 | 20 20 28 6c 6f 6f 70 20 |il).    |  (loop |
|00001060| 66 6f 72 20 73 65 78 70 | 20 3d 20 28 63 63 6c 3a |for sexp| = (ccl:|
|00001070| 3a 62 75 66 66 65 72 2d | 63 75 72 72 65 6e 74 2d |:buffer-|current-|
|00001080| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001090| 00 00 00 1e 00 11 3a c0 | 08 d2 00 00 00 1c 00 1e |......:.|........|
|000010a0| ff ff 28 66 69 72 00 06 | 00 08 00 2c 00 06 01 55 |..(fir..|...,...U|
|000010b0| 02 48 00 2c 00 06 01 55 | 02 48 00 00 00 00 00 00 |.H.,...U|.H......|
|000010c0| 01 34 00 00 01 34 00 00 | 00 00 01 00 00 00 00 0a |.4...4..|........|
|000010d0| 00 01 00 04 09 00 01 00 | 00 00 00 00 00 09 01 57 |........|.......W|
|000010e0| 06 4d 6f 6e 61 63 6f 00 | 00 01 00 00 00 01 67 00 |.Monaco.|......g.|
|000010f0| 00 00 67 00 00 00 52 00 | 52 63 24 0d 3a 00 00 00 |..g...R.|Rc$.:...|
|00001100| 1c 00 52 00 01 4d 50 53 | 52 00 00 00 12 46 52 45 |..R..MPS|R....FRE|
|00001110| 44 00 01 00 1e 03 ed ff | ff 00 00 00 00 00 53 46 |D.......|......SF|
|00001120| 74 00 02 ff ff 00 00 00 | 4c 00 00 00 00 00 03 ff |t.......|L.......|
|00001130| ff 00 00 00 5a 00 00 00 | 00 00 00 00 00 00 00 00 |....Z...|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+